home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / nutritio.sit / Nutrition v1.1 / background_2777.txt < prev    next >
Text File  |  1988-02-13  |  15KB  |  726 lines
  1. -- background: 2777 from stack: in.1
  2. -- bmap block id: 3356
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Daily Log
  6. ----- HyperTalk script -----
  7. on openCard
  8.   if bkgnd field id 6 is empty then exit openCard
  9.   put bkgnd field id 58 into totalCal
  10.   put line 17 of card field id 28 of card id 8213 into rdaCal
  11.   put round ((totalCal/rdaCal) * 100 + .5) into bkgnd field id 59
  12.   put bkgnd field id 6 into protein
  13.   put line 16 of card field id 28 of card id 8213 into rda
  14.   put round ((protein/rda) * 100 + .5) into bkgnd field id 60
  15. end openCard
  16.  
  17.  
  18.  
  19.  
  20. -- part 1 (field)
  21. -- low flags: 01
  22. -- high flags: 0007
  23. -- rect: left=25 top=97 right=193 bottom=227
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 0
  27. -- font id: 129
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: Breakfasts
  32. ----- HyperTalk script -----
  33. on openField
  34.   show bkgnd button id 14
  35. end openField
  36.  
  37. on closeField
  38.   hide bkgnd button id 14
  39. end closeField
  40.  
  41.  
  42.  
  43. -- part 2 (field)
  44. -- low flags: 01
  45. -- high flags: 4007
  46. -- rect: left=16 top=212 right=293 bottom=232
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 0
  50. -- font id: 129
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: Lunch
  55.  
  56.  
  57. -- part 3 (field)
  58. -- low flags: 01
  59. -- high flags: 0007
  60. -- rect: left=275 top=91 right=204 bottom=489
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 0
  64. -- font id: 129
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: 
  69.  
  70.  
  71. -- part 4 (field)
  72. -- low flags: 01
  73. -- high flags: 0007
  74. -- rect: left=274 top=225 right=272 bottom=490
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 0
  78. -- font id: 129
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Snacks
  83.  
  84.  
  85. -- part 6 (field)
  86. -- low flags: 01
  87. -- high flags: 0000
  88. -- rect: left=339 top=316 right=333 bottom=388
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 65535
  92. -- font id: 129
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: 
  97.  
  98.  
  99. -- part 8 (button)
  100. -- low flags: 00
  101. -- high flags: A004
  102. -- rect: left=166 top=35 right=51 bottom=241
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: New Card
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   doMenu "New Card"
  114.   put item 1 of the long date into line 1 of background field 6
  115.   put the short date into line 2 of background field 6
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part 9 (field)
  121. -- low flags: 00
  122. -- high flags: 0000
  123. -- rect: left=27 top=38 right=73 bottom=103
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 129
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Date
  132.  
  133.  
  134. -- part 10 (button)
  135. -- low flags: 00
  136. -- high flags: 0000
  137. -- rect: left=30 top=0 right=22 bottom=55
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 1014 / 1014
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Prev Card
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   go to previous card of this background
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 11 (button)
  154. -- low flags: 00
  155. -- high flags: 0000
  156. -- rect: left=463 top=0 right=22 bottom=488
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 1013 / 1013
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Next Card
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   go to next card of this background
  168. end mouseUp
  169.  
  170.  
  171.  
  172. -- part 12 (button)
  173. -- low flags: 80
  174. -- high flags: 0000
  175. -- rect: left=243 top=1 right=21 bottom=270
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 20689 / 20689
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: New Button
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   go home
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 16 (button)
  192. -- low flags: 00
  193. -- high flags: A004
  194. -- rect: left=274 top=35 right=52 bottom=325
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: Menus
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   visual effect dissolve
  206.   push card
  207.   go to card id 4827
  208. end mouseUp
  209.  
  210.  
  211.  
  212.  
  213. -- part 20 (button)
  214. -- low flags: 00
  215. -- high flags: 0000
  216. -- rect: left=240 top=0 right=27 bottom=271
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 1011 / 1011
  219. -- text alignment: 1
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: New Button
  225. ----- HyperTalk script -----
  226. on mouseUp
  227.   go home
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 13 (field)
  233. -- low flags: 81
  234. -- high flags: 0004
  235. -- rect: left=93 top=32 right=320 bottom=401
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 129
  240. -- text size: 12
  241. -- style flags: 0
  242. -- line height: 16
  243. -- part name: 
  244.  
  245.  
  246. -- part 31 (button)
  247. -- low flags: 00
  248. -- high flags: A004
  249. -- rect: left=274 top=60 right=77 bottom=326
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: Reset
  258. ----- HyperTalk script -----
  259. on mouseUp
  260.   answer "Clear all fields of this card?" with "OK" or "Cancel"
  261.   if it is "Cancel" then exit mouseUp
  262.   repeat with n = 1 to 4
  263.     put empty into bkgnd field n
  264.   end repeat
  265.   put empty into bkgnd field 5
  266.   repeat with n = 9 to 29
  267.     put empty into bkgnd field n
  268.   end repeat
  269. end mouseUp
  270.  
  271.  
  272.  
  273. -- part 18 (field)
  274. -- low flags: 81
  275. -- high flags: 0002
  276. -- rect: left=93 top=32 right=56 bottom=399
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 0 / 0
  279. -- text alignment: 1
  280. -- font id: 0
  281. -- text size: 18
  282. -- style flags: 0
  283. -- line height: 24
  284. -- part name: Expanded view title
  285.  
  286.  
  287. -- part 19 (button)
  288. -- low flags: 80
  289. -- high flags: 2002
  290. -- rect: left=381 top=38 right=50 bottom=393
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 1
  294. -- font id: 0
  295. -- text size: 12
  296. -- style flags: 0
  297. -- line height: 16
  298. -- part name: Close box
  299. ----- HyperTalk script -----
  300. on mouseUp
  301.   set lockScreen to true
  302.   put empty into field id 13
  303.   put empty into field id 18
  304.   hide field id 13
  305.   hide field id 18
  306.   hide bkgnd button id 19
  307.   set lockScreen to false
  308. end mouseUp
  309.  
  310.  
  311.  
  312. -- part 29 (field)
  313. -- low flags: 01
  314. -- high flags: 0000
  315. -- rect: left=150 top=297 right=315 bottom=199
  316. -- title width / last selected line: 0
  317. -- icon id / first selected line: 0 / 0
  318. -- text alignment: 65535
  319. -- font id: 129
  320. -- text size: 12
  321. -- style flags: 0
  322. -- line height: 16
  323. -- part name: Total Carb
  324.  
  325.  
  326. -- part 30 (field)
  327. -- low flags: 01
  328. -- high flags: 0000
  329. -- rect: left=82 top=315 right=333 bottom=131
  330. -- title width / last selected line: 0
  331. -- icon id / first selected line: 0 / 0
  332. -- text alignment: 65535
  333. -- font id: 129
  334. -- text size: 12
  335. -- style flags: 0
  336. -- line height: 16
  337. -- part name: Total Fat
  338.  
  339.  
  340. -- part 33 (button)
  341. -- low flags: 00
  342. -- high flags: 2000
  343. -- rect: left=456 top=39 right=80 bottom=485
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 0 / 0
  346. -- text alignment: 1
  347. -- font id: 0
  348. -- text size: 12
  349. -- style flags: 0
  350. -- line height: 16
  351. -- part name: Vitamin stats
  352. ----- HyperTalk script -----
  353. on mouseUp
  354.   repeat with n = 1 to 8
  355.     put n + 10 into j
  356.     put n + 18 into k
  357.     if field k is empty and field j is empty then next repeat
  358.     put 2 * n -1 into l
  359.     put field j into line l of card field id 1 of card id 8213
  360.     put field k into line l of card field id 11 of card id 8213
  361.   end repeat
  362.   push card
  363.   go to card id 8213
  364. end mouseUp
  365.  
  366.  
  367.  
  368.  
  369.  
  370.  
  371. -- part 34 (field)
  372. -- low flags: 80
  373. -- high flags: 0002
  374. -- rect: left=321 top=111 right=127 bottom=449
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 0 / 0
  377. -- text alignment: 0
  378. -- font id: 129
  379. -- text size: 12
  380. -- style flags: 0
  381. -- line height: 16
  382. -- part name: Vitamin A
  383.  
  384.  
  385. -- part 35 (field)
  386. -- low flags: 80
  387. -- high flags: 0002
  388. -- rect: left=317 top=146 right=162 bottom=454
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 0
  392. -- font id: 129
  393. -- text size: 12
  394. -- style flags: 0
  395. -- line height: 16
  396. -- part name: Vitamin C
  397.  
  398.  
  399. -- part 36 (field)
  400. -- low flags: 80
  401. -- high flags: 0002
  402. -- rect: left=317 top=172 right=187 bottom=455
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 0
  406. -- font id: 129
  407. -- text size: 12
  408. -- style flags: 0
  409. -- line height: 16
  410. -- part name: Vitamin B-1
  411.  
  412.  
  413. -- part 37 (field)
  414. -- low flags: 80
  415. -- high flags: 0002
  416. -- rect: left=318 top=197 right=213 bottom=455
  417. -- title width / last selected line: 0
  418. -- icon id / first selected line: 0 / 0
  419. -- text alignment: 0
  420. -- font id: 129
  421. -- text size: 12
  422. -- style flags: 0
  423. -- line height: 16
  424. -- part name: Vitamin B-2
  425.  
  426.  
  427. -- part 38 (field)
  428. -- low flags: 80
  429. -- high flags: 0002
  430. -- rect: left=318 top=223 right=240 bottom=456
  431. -- title width / last selected line: 0
  432. -- icon id / first selected line: 0 / 0
  433. -- text alignment: 0
  434. -- font id: 129
  435. -- text size: 12
  436. -- style flags: 0
  437. -- line height: 16
  438. -- part name: Vitamin B-6
  439.  
  440.  
  441. -- part 40 (field)
  442. -- low flags: 80
  443. -- high flags: 0002
  444. -- rect: left=318 top=250 right=267 bottom=456
  445. -- title width / last selected line: 0
  446. -- icon id / first selected line: 0 / 0
  447. -- text alignment: 0
  448. -- font id: 129
  449. -- text size: 12
  450. -- style flags: 0
  451. -- line height: 16
  452. -- part name: Vitamin B-12
  453.  
  454.  
  455. -- part 41 (field)
  456. -- low flags: 80
  457. -- high flags: 0002
  458. -- rect: left=317 top=272 right=289 bottom=458
  459. -- title width / last selected line: 0
  460. -- icon id / first selected line: 0 / 0
  461. -- text alignment: 0
  462. -- font id: 129
  463. -- text size: 12
  464. -- style flags: 0
  465. -- line height: 16
  466. -- part name: Niacin
  467.  
  468.  
  469. -- part 42 (field)
  470. -- low flags: 80
  471. -- high flags: 0002
  472. -- rect: left=316 top=291 right=309 bottom=461
  473. -- title width / last selected line: 0
  474. -- icon id / first selected line: 0 / 0
  475. -- text alignment: 0
  476. -- font id: 129
  477. -- text size: 12
  478. -- style flags: 0
  479. -- line height: 16
  480. -- part name: Folic Acid
  481.  
  482.  
  483. -- part 45 (button)
  484. -- low flags: 00
  485. -- high flags: 2000
  486. -- rect: left=189 top=56 right=93 bottom=225
  487. -- title width / last selected line: 0
  488. -- icon id / first selected line: 14767 / 14767
  489. -- text alignment: 1
  490. -- font id: 0
  491. -- text size: 12
  492. -- style flags: 0
  493. -- line height: 16
  494. -- part name: New Button
  495. ----- HyperTalk script -----
  496. on mouseUp
  497.   push card
  498.   visual effect dissolve
  499.   go to first card
  500. end mouseUp
  501.  
  502.  
  503.  
  504.  
  505. -- part 46 (button)
  506. -- low flags: 00
  507. -- high flags: 2000
  508. -- rect: left=107 top=34 right=72 bottom=155
  509. -- title width / last selected line: 0
  510. -- icon id / first selected line: 23078 / 23078
  511. -- text alignment: 1
  512. -- font id: 0
  513. -- text size: 12
  514. -- style flags: 0
  515. -- line height: 16
  516. -- part name: Order Info
  517. ----- HyperTalk script -----
  518. on mouseUp
  519.   push card
  520.   go to card id 2859
  521. end mouseUp
  522.  
  523.  
  524.  
  525. -- part 48 (field)
  526. -- low flags: 81
  527. -- high flags: 0000
  528. -- rect: left=70 top=86 right=103 bottom=143
  529. -- title width / last selected line: 0
  530. -- icon id / first selected line: 0 / 0
  531. -- text alignment: 0
  532. -- font id: 129
  533. -- text size: 12
  534. -- style flags: 0
  535. -- line height: 16
  536. -- part name: Ca
  537.  
  538.  
  539. -- part 49 (field)
  540. -- low flags: 81
  541. -- high flags: 0000
  542. -- rect: left=69 top=109 right=126 bottom=143
  543. -- title width / last selected line: 0
  544. -- icon id / first selected line: 0 / 0
  545. -- text alignment: 0
  546. -- font id: 3
  547. -- text size: 12
  548. -- style flags: 0
  549. -- line height: 16
  550. -- part name: P
  551.  
  552.  
  553. -- part 50 (field)
  554. -- low flags: 81
  555. -- high flags: 0000
  556. -- rect: left=70 top=134 right=151 bottom=150
  557. -- title width / last selected line: 0
  558. -- icon id / first selected line: 0 / 0
  559. -- text alignment: 0
  560. -- font id: 3
  561. -- text size: 12
  562. -- style flags: 0
  563. -- line height: 16
  564. -- part name: Mg
  565.  
  566.  
  567. -- part 51 (field)
  568. -- low flags: 81
  569. -- high flags: 0000
  570. -- rect: left=69 top=158 right=174 bottom=161
  571. -- title width / last selected line: 0
  572. -- icon id / first selected line: 0 / 0
  573. -- text alignment: 0
  574. -- font id: 3
  575. -- text size: 12
  576. -- style flags: 0
  577. -- line height: 16
  578. -- part name: Fe
  579.  
  580.  
  581. -- part 52 (field)
  582. -- low flags: 81
  583. -- high flags: 0000
  584. -- rect: left=67 top=181 right=199 bottom=167
  585. -- title width / last selected line: 0
  586. -- icon id / first selected line: 0 / 0
  587. -- text alignment: 0
  588. -- font id: 3
  589. -- text size: 12
  590. -- style flags: 0
  591. -- line height: 16
  592. -- part name: Zn
  593.  
  594.  
  595. -- part 53 (field)
  596. -- low flags: 81
  597. -- high flags: 0000
  598. -- rect: left=61 top=211 right=230 bottom=177
  599. -- title width / last selected line: 0
  600. -- icon id / first selected line: 0 / 0
  601. -- text alignment: 0
  602. -- font id: 3
  603. -- text size: 12
  604. -- style flags: 0
  605. -- line height: 16
  606. -- part name: Na
  607.  
  608.  
  609. -- part 54 (field)
  610. -- low flags: 81
  611. -- high flags: 0000
  612. -- rect: left=63 top=237 right=254 bottom=169
  613. -- title width / last selected line: 0
  614. -- icon id / first selected line: 0 / 0
  615. -- text alignment: 0
  616. -- font id: 3
  617. -- text size: 12
  618. -- style flags: 0
  619. -- line height: 16
  620. -- part name: K
  621.  
  622.  
  623. -- part 55 (field)
  624. -- low flags: 81
  625. -- high flags: 0000
  626. -- rect: left=64 top=257 right=274 bottom=170
  627. -- title width / last selected line: 0
  628. -- icon id / first selected line: 0 / 0
  629. -- text alignment: 0
  630. -- font id: 3
  631. -- text size: 12
  632. -- style flags: 0
  633. -- line height: 16
  634. -- part name: 
  635.  
  636.  
  637. -- part 56 (field)
  638. -- low flags: 80
  639. -- high flags: 0000
  640. -- rect: left=63 top=278 right=295 bottom=169
  641. -- title width / last selected line: 0
  642. -- icon id / first selected line: 0 / 0
  643. -- text alignment: 0
  644. -- font id: 3
  645. -- text size: 12
  646. -- style flags: 0
  647. -- line height: 16
  648. -- part name: 
  649.  
  650.  
  651. -- part 57 (field)
  652. -- low flags: 80
  653. -- high flags: 0000
  654. -- rect: left=64 top=302 right=320 bottom=169
  655. -- title width / last selected line: 0
  656. -- icon id / first selected line: 0 / 0
  657. -- text alignment: 0
  658. -- font id: 3
  659. -- text size: 12
  660. -- style flags: 0
  661. -- line height: 16
  662. -- part name: 
  663.  
  664.  
  665. -- part 58 (field)
  666. -- low flags: 01
  667. -- high flags: 0000
  668. -- rect: left=338 top=297 right=314 bottom=387
  669. -- title width / last selected line: 0
  670. -- icon id / first selected line: 0 / 0
  671. -- text alignment: 65535
  672. -- font id: 129
  673. -- text size: 12
  674. -- style flags: 0
  675. -- line height: 16
  676. -- part name: TotalCal
  677.  
  678.  
  679. -- part 59 (field)
  680. -- low flags: 01
  681. -- high flags: 0000
  682. -- rect: left=412 top=296 right=313 bottom=472
  683. -- title width / last selected line: 0
  684. -- icon id / first selected line: 0 / 0
  685. -- text alignment: 65535
  686. -- font id: 3
  687. -- text size: 12
  688. -- style flags: 0
  689. -- line height: 16
  690. -- part name: 
  691.  
  692.  
  693. -- part 60 (field)
  694. -- low flags: 01
  695. -- high flags: 0000
  696. -- rect: left=412 top=315 right=332 bottom=472
  697. -- title width / last selected line: 0
  698. -- icon id / first selected line: 0 / 0
  699. -- text alignment: 65535
  700. -- font id: 3
  701. -- text size: 12
  702. -- style flags: 0
  703. -- line height: 16
  704. -- part name: 
  705.  
  706.  
  707. -- part 61 (button)
  708. -- low flags: 00
  709. -- high flags: 8004
  710. -- rect: left=342 top=33 right=57 bottom=435
  711. -- title width / last selected line: 0
  712. -- icon id / first selected line: 0 / 0
  713. -- text alignment: 1
  714. -- font id: 0
  715. -- text size: 12
  716. -- style flags: 0
  717. -- line height: 16
  718. -- part name: Set User Type
  719. ----- HyperTalk script -----
  720. on mouseUp
  721.   push card
  722.   go to card id 5328
  723. end mouseUp
  724.  
  725.  
  726.